code
# anscombes quartet
longanscombe <- anscombe %>%
pivot_longer(cols = everything(), #pivot all the columns
cols_vary = "slowest", #keep the datasets together
names_to = c(".value", "set"), #new var names; .value=stem of vars
names_pattern = "(.)(.)") #to extract var names
kable(
list(anscombe),
caption="Anscombe's Quartet",
booktabs = TRUE,
valign = 't',
row.names = FALSE,
)
|